Option Explicit
'ThisWorkbookҲ
Private Sub Workbook_Activate()
    MsgBox Me.Name & "Active]ҥΡ^AC"
End Sub

Private Sub Workbook_AddinInstall()
    MsgBox Me.Name & "QOAddinFC"
End Sub

Private Sub Workbook_AddinUninstall()
    MsgBox Me.Name & "QѰOAddinFC"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox Me.Name & "QCloseFC"
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    MsgBox Me.Name & "QCLBάOܨCLwC"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
                                Cancel As Boolean)
    MsgBox Me.Name & "QxsFC"
End Sub

Private Sub Workbook_Deactivate()
    MsgBox Me.Name & "wgOActive]ҥΡ^AFC"
End Sub


Private Sub Workbook_NewSheet(ByVal Sh As Object)
    MsgBox Me.Name & "sW" & Sh.Name & "oӪC"
End Sub

Private Sub Workbook_Open()
    MsgBox Me.Name & "Q}ҤFC"
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    MsgBox Me.Name & "" & Sh.Name & "Active]ҥΡ^AC"
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
         ByVal Target As Range, Cancel As Boolean)
    MsgBox Me.Name & "" & Sh.Name & "" & Target.Address & "QGUFC"
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, _
         ByVal Target As Range, Cancel As Boolean)
    MsgBox Me.Name & "" & Sh.Name & "" & Target.Address & "QHƹkIFC"
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    MsgBox Me.Name & "" & Sh.Name & "QӶipFC"
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    MsgBox Me.Name & "" & Sh.Name & "" & Target.Address & "ȳQܧFC"
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    MsgBox Me.Name & "" & Sh.Name & "wgOActive]ҥΡ^AFC"
End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, _
                                          ByVal Target As Hyperlink)
    MsgBox Me.Name & "" & Sh.Name & "" & Target.SubAddress & "cWsC"
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
                                          ByVal Target As Range)
    MsgBox Me.Name & "" & Sh.Name & "" & Target.Address & "QܤFC"
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    MsgBox Me.Name & "Active]ҥΡ^AC"
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    MsgBox Me.Name & "wgOActive]ҥΡ^AFC"
End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)
    MsgBox Me.Name & "jpQܧFC"
End Sub
